home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / Add-Ons / MPW / MPW noweb 2.7 / src / perl / cpif next >
Encoding:
Text File  |  1995-10-04  |  1.2 KB  |  58 lines  |  [TEXT/MPS ]
  1. Perl -Sx "{0}" {"Parameters"}; Exit
  2.  
  3. #!perl
  4. # cpif [ -eq -ne ] file...
  5. # copy standard input to each of the named files
  6. # if new * old is true or old doesn't exist;
  7. # * defaults to -ne
  8.  
  9. # set -x
  10. $op    = "ne";
  11.  
  12. if ($ARGV[0] =~ /^-(\w+)$/) {
  13.     $op = $1;
  14.     die "Usage: cpif [ -eq -ne ] file" unless $op =~ /eq|ne/;
  15.     shift;
  16. } 
  17.  
  18. if ($op eq "ne") {
  19.     $good = 0;
  20.     open(OLD, $ARGV[0]) || goto docopy;
  21.     for (;;) {
  22.         $chunk = sysread(STDIN, $text, 8192);
  23.         $oldlen= sysread(OLD, $old, $chunk);
  24.         if (!$chunk && !$oldlen) {
  25.             close(OLD);
  26.             last;
  27.         } elsif ($oldlen != $chunk || $text ne $old) {
  28.             close(OLD);
  29. docopy:
  30.             open(NEW, "+>$ARGV[0]") || die "Couldn't open $ARGV[0] for writing";
  31.             seek(NEW, $good, 0);
  32.             syswrite(NEW, $text, $chunk);
  33.             $good += $chunk;
  34.             while($chunk = sysread(STDIN, $text, 8192)) {
  35.                 syswrite(NEW, $text, $chunk);
  36.                 $good += $chunk;
  37.             }
  38.             truncate(NEW, $good);
  39.             close(NEW);
  40.             last;
  41.         } 
  42.         $good += $chunk;
  43.     } 
  44. } else {
  45.     for (;;) {
  46.         $chunk = sysread(STDIN, $text, 8192);
  47.         $oldlen= sysread(OLD, $old, $chunk);
  48.         if (!$chunk && !$oldlen) {
  49.             close(OLD);
  50.             $now = time;
  51.             utime $now, $now, $ARGV[0];
  52.             last;
  53.         } elsif ($oldlen != $chunk || $text ne $old) {
  54.             close(OLD);
  55.             last;
  56.         } 
  57.     }     
  58. }